64'er 1989 June/64er_Magazin_89-06_1989_Markt__Technik_de_Side_A.d64/rauem ab

Commodore BASIC | 1989-01-01 | 1.2 KB | 22 lines

1 data96,0,240,0,248,0,124,0,62,8,31,20,14,164,4,72,10,16,25,16,37,16,82,16,76,8
2 data40,4,16,2,12,1,3,130,0,124,0,0,0,0,0,0:print"[147]":x$="            ":r=0
3 restore:fori=0to60step3:reada,b:poke832+i,a:poke833+i,b:poke834+i,0:next:poke2040,13
4 z$=x$+"    ":printz$"[176][192][178][192][178][192][174]":b$="[194][209][194][209][194][209][194]":printz$b$:c$=z$+"[171][192][219][192][219][192][179]":printc$:printz$b$:printx$;
5 print"[176][192][178][192][219][192][219][192][219][192][219][192][178][192][174]":printx$b$"[209]"b$:d$=x$+"[171][192][219][192][219][192][219][192][219][192][219][192][219][192][179]":printd$:printx$b$" "b$:printd$:printx$;
6 printb$"[209]"b$:printx$"[173][192][177][192][219][192][219][192][219][192][219][192][177][192][189]":printz$b$:printc$:printz$b$:printz$"[173][192][177][192][177][192][189]":print:print" n=neues spiel"
7 v=53248:pokev+21,1:pokev+39,3:x=181:y=153:pokev,x:pokev+1,y:ya=y:xa=x:n=137:m=169
8 y=ya:x=xa:a=127-peek(56320):getz$:ifz$="n"then2
9 ifa<>1anda<>2anda<>4anda<>8anda<>16then8
10 ifa<4theny=y+16*sgn(a-1.5):if(y<105ory>201)or((x<165orx>197)and(y<137ory>169))then8
11 ifa<9anda>2thenx=x+16*sgn(a-5):if(x<133orx>229)or((x<165orx>197)and(y<nory>m))then8
12 ifa<16thenpokev,x:pokev+1,y:xa=x:ya=y:goto8
13 q=983+(x-21)/8+(y-49)*5:l=32
14 if(e=0andpeek(q)=32)or(peek(q)=81and(eor(x=xsandy=ys)))then8
15 ife=0thenpokeq,42:e=1:xs=x:ys=y:forty=1to250:next:goto8
16 ifpeek(q)=42thenpokeq,81:e=0:xs=x+1:ys=y+1:forty=1to250:next:goto8
17 if(xs+l=xorxs=xorxs-l=x)and(ys+l=yorys=yorys-l=y)thenxz=(x+xs)/2:yz=(y+ys)/2:p=1
18 w=983+(xz-21)/8+(yz-49)*5:k=983+(xs-21)/8+(ys-49)*5:ifp=0orpeek(w)<>81then8
19 pokeq,81:pokek,32:pokew,32:e=0:r=r+1:ifr=31thenprint:print" bravo!":print" space[146]":wait203,32:goto2
20 goto8
0